July 8, 2005 


The original manual was a mimeographed document that seems to have been 
typed on an IBM Selectric. 

Starting on July 7 th 2005 and ending on July 8 th , I converted the original 
document with the following tools, 

1) Scanned original with Epson Perfection 636 scanner 

Line Art - 300 dpi - TIFF - Adjusted the contrast for a better image 

2) Ran TIFF through a program called TOCR 

TOCR worked pretty well - sometimes it misidentified an "s" as an "a" 

3) imported TXT output from TOCR into Microsoft Word - used spell 
checker to catch errors 

4) Proofread document 

5) Convert to PDF??? 

Completed scanning and initial spell checking with MS Word on July 

8 th . 

Needs more careful proofreading. 

Windows 2000 - read this document out loud to help proof reading??? 

In my conversion process I tried to keep the page layout the same as the 
original. What you see is pretty much what the original looks like. 
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DIGIAC FORTRAN 


Compiler: 

Converts "Source Program" (Program in FORTRAN) entered on 
punched cards into an equivalent "Object Program" (Program in 
machine language) on punched tape. This compiler is "one pass", 
neither producing nor requiring any intermediate conversion 
whether in Assembly language or other form. However, it does 
produce a typed record of the source Program. It also incorporates 
considerable error checking, halting when an error is detected 
and typing a number indicating what kind of error caused the halt. 
An error list is appended. 

The compiler Program is on punched tape, self-entering after 
an initial word is typed into the Computer. It need not be re¬ 
entered for each Source Program (or corrected Source Program 
after an error halt). After inserting the new set of cards in 
the Card Reader and removing the tape previously punched, the 
machine is restarted in address 5250. 

Besides the tape containing the Compiler Program, there is 
another tape, the Library Program tape. It contains a number of 
subroutines and constants to properly handle the Object Program 
as well as suitable instructions for subsequently reading the 
Object Program tape into the Computer. It is self-entering after 
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an initial word is typed into the machine. It need not be 
re-entered for each Object Program tape. 

Operating Instructions: 

A. Enter Compiler Programs 

1. Check that there is sufficient paper. 

2. Mount Compiler Program tape on the Tape Reader. 

3. Set Type-In switch to "Octal" and types 

(Car Ret) 0000 (Tab) 60720001 
(Car Ret) 0000 

4. Set Type-In switch to "Off" and press "Automatic." 

When machine stops (switches back to Manual), it is 
ready for compiling DIGIAC FORTRAN. 

B. Compilation (for each Source Program): 

1. Check that there are adequate supplies of paper (Fanfold) 
in the Typewriter and tape on the Tape Punch. 

2. Load the deck of FORTRAN cards in the proper order in 
the Card Reader. Subroutine Programs must precede all 
programs in which they are used and must be complete 
including individual "END" cards. The main program must 
also end with an "END" card. FORTRAN Data cards are 
omitted at this stage. 
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3. 


Set Type-In switch to "Octal" and type: 


(Car Ret) 5250 

4. Set Type-In switch to "Off" and press "Automatic." The 
Computer types out the contents of each FORTRAN card as 
it is processed. If it halts before all cards have been 
processed, it will type out an Error number indicating 
the reason. The operator should refer to the Error list 
and apply the corresponding reason to the last typed card 
contents. 

When all of the cards have been processed and the 
machine halts without an error indication, it will type 
out an 8-digit number beginning with four zeros. 

5. Remove the tape prepared by the Computer and write this 
number upon it for future reference. This is the Object 
Program tape. 

Any number of source Programs may be successively 
compiled by repeating sequence B. 

C. Enter Library Programs 

1. Check that there is sufficient paper in the Typewriter. 

2. Mount Library Program tape in Tape Reader. 

3. Set Type-In switch to "Octal" and type. 

(Car Ret) 0000 (tab) 60700001 
(Car Ret) 0000 
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4. Set Type-In switch to "Off" and press "Automatic." 

When machine stops, it is ready for entering Object 
Programs. 

D. Enter Object Program: 

1. Check that there is sufficient paper in the typewriter. 

2. Set Type-In switch to "Octal" and types 

(Car Ret) 0000 (Tab) N 
(Car Ret) 6300 

where N is the 8-digit reference number on the Object 
Program tape. 

3. Mount Object Program tape in Tape Reader. 

4. Set Type-In switch to "Off" and press "Automatic." 

When machine stops, it is ready to process the Object 
Program. 

E. Process Object Programs 

1. Check the supply of paper in the Typewriter, if the 
program contains any "TYPE" statements. 

2. Check the supply of tape in the Tape Punch, if the pro¬ 
gram contains any "PUNCH" statements. 

3. Load the corresponding deck of Data cards in the Card 
Reader, if the program contains any "READ" statements. 

4. Mount the appropriate input tape in the Tape Reader, if 
the program contains any "TAPE" statements. 
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5. Set Type-In switch to "Octal" and type: 

(Car Ret) 0000 

6. Set Type-In switch to "Off" and press "Automatic." 

Machine will now perform the program with the data 
supplied, tarring error. If certain errors cause the 
machine to halt before completion of the program this 
is indicated by its typing of a repeated letter. The 
Error list can then be referred to for the cause. 

Any number of Object Programs may be successively 
processed by repeating sequences D and E. 

Coding: 

Must conform with stated rules precisely and is limited to 
the types listed. DIGIAC FORTRAN is, generally, FORTRAN II 
except that Function names conform with FORTRAN IV and that all 
labels and names are limited to four characters in length. There 
are, also, a number of relatively minor restrictions. 

Except for Labels and Comments (see next two Sections), each 
statement is limited to columns 7 through 72 (66 characters or 
spaces) of a FORTRAN card (or line of a coding sheet); no con¬ 
tinuation cards are permitted. In general, spaces may be inter¬ 
spersed as desired within a statement without affecting the 
result. However, column 7 must contain the first valid character 
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(not a space) and no spaces are permitted within the statement 
title word. Also, spaces have significance when within a 
"Hollerith" section of a FORMAT statement (see below) or input 
or output statements controlled by such a section. Finally, 
the "DO" statement requires a space after the "0." 

Except for "Hollerith" sections and Comment cards, which 
permit use of all typewriter symbols. Coding is restricted to 
the following characters, aside from convenient, but non-signifi¬ 
cant, spaces: 

1. The ten decimal digits 0 through 9. 

2. The 26 capital letters A through Z. It is convenient to 

distinguish the letter I from the digit 1 by adding the 

short horizontal strokes at its ends; the letter #??????? from 
the digit 0 by adding a diagonal stroke through it; and 

the letter a from the digit 2 by adding a short horizontal 

stroke at its center. 

3. The period only in floating constant values (see below). 

4. The following symbols to represent arithmetic operations: 

+ plus or addition 
- minus or subtraction 
* multiplication 
/ division 
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The double asterisk utilized in most FORTRAN systems 


to denote exponentiation is not permitted in DIGIAC 
FORTRAN. Simple powers may be represented by repeated 
multiplications; Roots and other exponentiation are 
best handled by Library Subroutines. 

5. The following symbols to separate portions of statements 
, comma 

= equality (actually used to mean: "replace by") 

( open parenthesis 
) close parenthesis 

Only one equality may appear in any statement. Each 
statement must have an equal number of open and close 
parentheses. 


Labels : 

Any statement may be, and FORMAT and CONTINUE statements 
must be, labelled by numbers of 1 to 4 digits in consecutive 
columns, with the final digit in column 4. No two FORMAT state¬ 
ments may have the same label and no two non-FORMAT statements 
may have the same label within the same subroutine Program or 
within the main program. Except for this, labels may be as¬ 
signed arbitrarily without regard to any order. Labels should be 
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used only where necessary, or of assistance in programming, so 
as to reduce the compiling time and avoid exceeding the allotted 
memory space. 

Numerical Values: 

Numbers are manipulated within the Computer in Binary form. 
However, input and output numbers are in Decimal form. Two types 
of numbers are provided for on DIGIAC FORTRAN: Integer and 
Exponential, frequently referred to as Fixed Point and Floating 
Point, although the latter term, in many other FORTRAN systems, 
refers to a specific type not provided for in this Compiler. 

A. Integer Constants: 

Input and output Fixed Point numbers consist of 1 to 7 decimal 
digits without a decimal point, preceded by a - sign if negative. 

A + sign may precede a positive input number, if desired, but this 
is unnecessary since absence of a - sign is sufficient. Positive 
output numbers do not have any sign. Zero is always positive and 
is represented by 1 to 7 0's. Within the Computer, a slightly 
wider range (-16777215 to + 16777215) is permitted temporarily. 
Examples 


The following are valid integer constants: 



0 


175 
+ 7 
-285 
6 

The following are not valid integer constants: 

-3.14 (contains a decimal point) 

9. (contains a decimal point) 

21345678 (exceeds magnitude permitted by processor) 

B. Exponential Constants 

Input and output Floating Point numbers consist of two parts 
separated by the Letter "E." The first part consists of a 
decimal point followed by 1 to 7 decimal digits, preceded by a 
- sign if negative, representing the magnitude. The second part 
consists of one o:: two decimal digits, preceded by a - sign if 
negative, representing the exponent. When either part is positive, 
a + sign may be employed instead of a - sign, if desired, but this 
is unnecessary. Zero is always positive. A zero exponent consists 
of 1 or 2 0's. A zero magnitude implies zero value and is repre¬ 
sented by a decimal point, followed by 1 to 7 0's, followed by 
E-99 (this being the lowest permissible exponent). Unless the ' 
value is zero, the first digit in the magnitude must not be a "0." 
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For data input after compilation, the E may be omitted it a sign 
is used before the exponent. 

The value of a Floating Point number is the magnitude (with 
due regard to the preceding decimal point) multiplied by 10 raised 
to the power indicated by the exponent. The range of input or 
output Floating Point numbers is, therefore, -.9999999 x 10 to 
+.9999999 x 10 . Within the Computer, a slightly wider temporary 
range is permitted, the range of magnitude being -1.6777215 to 
+1.6777215. If an exponent below -99 is computed, the number is 
replaced by Floating Point zero, without any error indication. 

Examples: 

The following are valid floating point constants: 

.2E+01 .182 

.125E-01 .9999999E+99 

-.25E-9 .OE-99 

The following are gag valid floating point constants: 

10E+02 (no decimal point) 

.125E+100 (excedes magntiude permitted by processor) 
.12348678E+1 (exceedes number of digits permitted by processor) 
C. Variables: 

A variable is a quantity whose value is not initially known 
and/or changes during the course of the program. It may be either 
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Integer or Floating as assigned but cannot change type through¬ 
out the program. A Variable is designated by 1 to 4 letters or 
digits. If Integer, the first character must be one of the letters 
I, J, K, L, M, or N. If Floating, the first character must still 
be a letter but not one of those just listed. No variable can 
begin with the specific pair of letters DO??? followed by a digit. 
Two variables used in the same portion of the program cannot have 
the same designation (name). With these few restrictions, vari¬ 
ables may be named arbitrarily in accord with the whim of the 
programmer. The value of a variable at any point of a program is 
that last assigned to it by an Arithmetic statement. Subroutine, 
or data input subsequent to compilation. 

Examples: 

The following are valid integer variables: 


I 

MAX 

K7 

LAST 

NEXT 

J0B1 


The following are not valid integer variables: 

7K (first character is not alphabetic) 

AMAX (first character is not integer indicator) 

JOB? (? is not permitted, it is a special character) 
NEXT1 (exceeds the no her of characters permitted by 
processor) 
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The following are valid floating point variables: 


A 

A3 

BETA 

TIME 

COST 

X37 


The following are not valid floating point variables: 

IMAX (first character is integer indicator) 

END1 (1 is not permitted, it is a special character) 

FIRST (exceeds the number of characters permitted by 
processor). 

D. Arrays: 

A variable may be subscripted with one or two subscripts. This 
results in an "Array" of quantities, constant or variable. The 
general forms are: 

V (i) or V(i, j ) 

"V" is formed in accord with the rules for naming variables so that 
all components of an array must be of the same type. "i" (and "j") 
must be positive, non-zero, and no larger than the range specified 
by the applicable "DIMENSION' statement (see below), which must 
precede the first statement referring to the array. 

When an array is used to the right of the "=" sign in an 
Arithmetic statement, i (and/or j) may consist of any expression 
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that can be evaluated under the rules applicable to Arithmetic 
statements (see below). When it is to the left of the = sign, 
each subscript mutt be either an integer constant or an integer 
variable (previously evaluated) and cannot involve any arithmetic 
manipulations. When an array is used in an input or output state¬ 
ment each subscript is restricted to be an integer constant only. 

The value of any component of an array is that last assigned 
to it by an Arithmetic statement or data input subsequent to 
compilation. 

No two arrays of differing number of subscripts or differing 
ranges can have the same name. No two arrays used in the same 
portion of the program can have the same name even if of identical 
range. An array must not have the same name as any function. 
However, an array may have the same name as a variable, even if 
both are used on the same part of the program, without inter¬ 
fering with proper compilation although this is undesirable since 
it is likely to confuse the programmer. 

Examples: 

The following are valid subscriped variables: 

A(I) TIME (I, J) 

K (3) IN = J(1*2, K+3) 

RATE(JOB, 3) 
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The following are not valid subscriped variables: 


A(J,K,I) (only one or two dimensional arrays are allowed) 
LAST(J(3)) (A subscript may not be subscripted) 

JOB(B) (Subscripts must be fixed point) 

TIME(I,) (A comma is not allowed after the last subscript) 
J(I+2) = N (A subscript may not be an expression if it 
is to the left of the = sign) 

E. Functions: 

A Function is of the form: 

F(Al????????????, A2* A3* * * * A m) 
in which "F" is a name selected in accord with the same rules as 
apply to variables or arrays. Al????, A2* A3 . . . Ag are independent 

variables also designated in accord with the same rules. The types 
of the A's depend upon the function definition. All need not be 
of the same type non of the type of the function "P". 

There are two hands of functions: the Library Function and 
the Statement Function (see also Subroutines). The former is 
computed by a machine language pre-coded routine and is limited to 
a fixed group which have been included in the compiler. The 
Statement Function is defined by an Arithmetic statement in which 
the function appears to the left of the = sign. 

The A's are "dummy" variables, unrelated to variables used 
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elsewhere is the program and at even have the same name without 
affecting tae result. In Statement Functions, additional vari¬ 
ables may appear it the rigot at the = sign, they take on the 
values that were computed for them by other parts of the progray 
prior to evaluation of the function. 

In using either type of function, the function is written in 
the same form but with the A's (independent variables) replaced 
by expressions constants, variables, etc. which give their values 
at the time the function is to be evaluated. 

The following in an example of statement Functions: 

FUNC(X,Y) = X*X/Y + Z 

FUNC is the function name 

X and Y are the function arguments 

The expression on the right of the equal sign defines the 
type of computation to be performed, it causes no computations to 
be performed. 

This function might be used in the following arithmetic state¬ 
ment : 

SUM = A+B-FUNC(D,E) 

This would be equivalent to writing the arithmetic statement: 

SUM = A+B-(D*D/E+Z)??????????? 

The following are not valid statement functions: 
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LAST(U,K,5) = U/K+3 (arguments must be variables) 

TIME (B(I)) = B(I) + A (argument cannot be subscripted) 
Descriptive Statements: 

A. Comments: 

The letter "C" in column 1 of any statement denotes that the 
statement is not to be processed but is merely a comment to be 
typed out daring the listing to identify portions of the program 
or state special instructions to the operator. Except for the 
initial "C", the only restriction on a Comment Statement is that 
it occupy no more than one card, although a number of consecutive 
Domment Statements may be used to circumvent this limitation. 

B. Dimension: 

Use of a subscripted variable must be preceded by a DIMENSION 
statement designating the maximum value for each subscript. Such 
a statement causes the compiler to reserve adequate memory to 
store all the possible values. A single DIMENSION statement 
suffices for a number of Arrays. The general form is: 

DIMENSION A(i,j), B(k), C(l), K(m,n) 
in which A, 8, C, K are names of arrays and i, j, k, 1, m, n, are 
maximum values of corresponding subscripts (must be integer con¬ 
stants in the range 2 to 999). T he programmer must, of course 
keep in mind the fact that the total memory capacity of the 


-16- 



machine is only 4096 words which must suffice for object program. 


subroutines, constants, working storage, and allocations for 
values of variables and arrays. Every fixed-point value requires 
one word of memory and every floating point value requires two 
words of memory so dimension allotments must not be made too 
generously. 

C. End: 

Every FORTRAN main, and each Subroutine, program must termi¬ 
nate with a card bearing merely the word "END" (in columns 7, 8, 
and 9). This causes the compiler to clear up some loose ends in 
the program and type out a reference number before halting its 
processing. 

Arithmetic Statement: 

An Arithmetic statement consists of a variable, array, or 
function followed by an = sign, followed by a sequence of constants 
and/or variables, and/or arrays, and/or functions joined by one of 
the operation symbols *, /, +, or - and groupel, if desired or 
necessary, by use of parentheses. The meaning of an arithmetic 
statement is that the numerical value which is the result of the 
operations specified on the right aide of the = sign is to be 
stored as the current value of the variable, array, or function 
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on the left of the = sign. Quantities in the might must, of 
course, have been previously defined. Also, quantities on the 
right which are joined by one of the operation symbols must be 
of the same mode, i.e., both floating or both integral. However, 
an array may be floating even though its subscripts must be 
integer and the independent variables of a function may be of 
differing modes and unrelated to the mode of the resulting func¬ 
tion, the various modes being determined by the definition of the 
function. The final mode on the right of the = sign may differ 
from that on the left, in which case sustable conversion is auto¬ 
matically performed before storing the computed value. 

Operations must always be designated: two quantities cannot 
be merely placed adjacent to indicate multiplication even if one 
or both is enclosed in parentheses. Also,.no two operation symbols 
may be adjacent; if meaningful, this may be avoided by use of 
parentheses. Expressions within parentheses, beginning with the 
innermost, are performed in order before combining in accord with 
operations indicated outside the pairs of parentheses. Within a 
pair of parentheses (or in the absence of parenthication) multi¬ 
plications and divisions are performed before additions and sub¬ 
traction and, in each group, in the order left to right. 
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Control Statements: 


A. IF: 

This statement has the form: 

IF (V) al????????* n2, n3 

In this, "V" is a predefined, non-subscripted variable, and 
nl????, n2, and n3 are numerical quantities of 1 to 4 digits, not 
necessarily all different, representing labels of FORTRAN state¬ 
ments. The IF statement causes transfer to the statement whose 
label is nl??? if v is negative, n2 if v is zero, and n3 if v is 
positive but not zero. 

B. DO: 

This statement has the form: 

DO nl = ml, m2, m3 

which must have at least one space after DO. Other spacing is 
optional, "n" consists of 1 to 4 digits representing the label 
of a "CONTINUE" statement. No two DO statements may have the 
same "n". "I" is an integer variable, non-subscripted, and ml, 

m2 and m3 are integer, non-subscripted variables or constants. 
m3 may be omitted, in which case it is understood to be 1. 

The DO statement causes performance of the sequence of state¬ 
ments beginning with the statement immediately following the 
DO statement and ending with that carrying the label "n", 
keeping "I" at the value ml, then repeating the same sequence 
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with the value my+m3??? for I, then with ml+2m3???? for I, etc. 


stopping the repetition when I exceeds m2, then continuing with 
the statement immediately following the "CONTINUE" statement 
labelled "n". 

C. CONTINUE: 

This statement consists merely of the word "CONTINUE" (in 
columns 7 through 14). It serves to designate the end of a 
DO "loop" and, as such, it must carry a label which can be 
specified in the DO statement. 

D. GO TO: 

Two types of GO TO statements are permitted: "Unconditional" 
and "Computed." They are of the forms: 

GO TO n 

GO TO (nl?????, n2*-nm)* 

In these statements, each "n" is a numerical quantity of 1 to 
4 digits and represents the label of a FORTRAN statement. The 
n's need not be all different. "I" is on integer non-subscripted 
variable. The Unconditional GO TO causes transfer to the state¬ 
ment whose label is "n". The Computed GO TO causes transfer to 
the statement whose label is ni??? where "i" is the value of "I" 
at the time. Obviously, "I" must in positive, non-zero, and not 
grater than "m" at the time the GO TO statement is used. Also, 
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the statement carrying the "n" or "ni* labels must be executable 


(not merely descriptive). 

E. STOP: 

The STOP statement consists merely of the word."STOP" (in 
columns 7, 8, 9, and 10). It results in halting further compu¬ 
tation, the Computer shifting to the "Halt" mode. 

Subroutine Statements: 

A. SUBROUTINE: 

There are two varieties of subroutines: the Library Sub¬ 
routine and the FORTRAN subroutine. The former is analogons to 
the Library function in that it consists of a machine language 
pre-coded routine limited to a fixed group included in the 
compiler but has more than one dependent variable (result). 

The latter is included as a subsidiary part of the FORTRAN pro¬ 
gram for a portion which is used repeatedly during the program 
or which the programmer prefers to separate for convenience. It 
consists of more than a single statement but begins with the 
statement: 

SUBROUTINE S(A1, A2, - Am???) 

in which "S" consists of 1 to 4 letters or digits beginning with 
any letter and each "A" is a variable designation in accord with 
the rules for such designation. As for functions, the A's are 
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dummy variables independent of the remainder of the program. 

In this case, however, there may be more than one result and 
the A's include all the dependent variables (results) as well 
as independent (inputs). This initial SURROUTINB statement is 
followed by a complete, although generally small, FORTRAN pro¬ 
gram, with its own set of statements, ending with an END state¬ 
ment and including at least one "RETURN" statement. Such a 
subroutine program may contain Library Functions and Subroutines 
as well as those FORTRAN Subroutines previously processed but 
may not make references to Labels, Variables, or Statement Func¬ 
tions in any other Subroutine program or the main program. 
Furthermore, all FORTRAN Subroutine programa must precede the 
main program. 

B. CALL: 

This statement has the form: 

CALL S(VI, V, - Vm???) 

in which "S" is the designation for a subroutine (whether Library 
or FORTRAN type) and each "V" is a constant or non-subscripted 
variable giving the value of the corresponding independent vari¬ 
able or is the designation of the corresponding dependent vari¬ 
able whose value will be determined by the subroutine. 
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C. RETURN: 

This statement consists of the single word RETURN (in 
columns 7 through 12) and is used within the FORTRAN program 
for each subroutine to indicate the step in the program at which 
control is to return to the main program (to the statement follow¬ 
ing the CALL for that subroutine). 

Input-Output Statements : 

A. FORMAT: 

This type of statement controls input and/or output operations. 
It has the form: 

FORMAT (sped, spec2,-specm) 

in which each "spec" is of one of the following forms: 
kirn for integer quantities 
kEm for exponential quantities 
kX for spaces 
kY for carriage returns 
kH Data for Hollerith 

FORMAT Statements must carry a label. This label may be the same 
as one for another type of statement but must differ from that 
used for any other FORMAT statement. A FORMAT statement must 
precede any input or output statement referring to it. 
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In the individual "specs". 


k" may be omitted. In such 


case, it is understood to be 1. If present, k is limited to 
1 or 2 decimal digits, it represents the number of times the 
succeeding specification is to be repeated. "I", "E", "X", 

"Y", and "H" are themselves: no other characters may begin a 
"spec" or follow a "k" value in a "spec". "m" consists of 1 
or 2 decimal digits and represents the "field' or number of 
columns or character locations allocated to the item. It has 
no significance in control of "PUNCH: or "TAPE" operations, 
but applies to "READ" and "TYPE" instructions. In the "READ" 
process, it is permissible to write exponential numbers without 
E if a sign precedes the exponent. Hence a floating quantity 
may take as few as 4 columns (decimal point, one magnitude 
digit, E or sign, and one exponent digit) for a positive number 
and 5 columns for a negative number. Obviously, more space is 
required if more decimal places are needed or if the exponent 
needs two digits. Of necessity, "m" will be adequate if the 
FORMAT is consistant with the Data card. In "TYPE" operations, 
however, matters are different. In this case, it is desirable 
to "line-up" tabular data so that exponential numbers always 
include an initial space or minus as well as sign and two 
digits for the exponent. E is also always typed for clarity. 
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Thus a minimum of 7 characters is required: space or minus, 
decimal point, one significant digits??? 8, sign and two digits 
of exponent. For full accuracy, this must be increased by 6 
so as to provide for 7 magnitude digits. If "m" is below the 
number of significant digits in an integer quantity or the 
minimum 7 required for a floating quantity, an Error halt re¬ 
sults. If "m" is above the number of significant digits in an 
integer quantity or the maximum 13 required for a floating 
quantity, sufficient spaces are automatically prefixed to use 
up "m" character spaces. If "m" is between the minimum and 
maximum for a floating quantity, sufficient digits are deleted 
from the least-significant end of the magnitude to type the 
result into "m" character spaces. 

The "X" specification merely inserts "k"??? ;spaces in TYPE 
output or skips "k" columns in READ input. It has no significance 
in PUNCH or TAPE operations. The "Y" specification causes "k" 
carriage returns in TYPE output and is ignored in the other 
operations. 

The "H" specification relates to input or output of alpha 
numeric data. The "Data" portion consists of the "k" characters 
immediately following the letter "H". These characters may be 
any interpretable by the computer including letters, digits. 
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an/or symbols. In output operations, the "Data" is punched 
into tape, or typed in Alpha form. In input operations, the 
"Data" portion stored in the Computer is replaced by the corre¬ 
sponding portion of the input card or tape. 

B. PUNCH: 

This statement has either of the forms: 

PUNCH n 

PUNCH n, vl???, v2, - vm 

In these, "n" consists of 1 to 4 decimal digits and represents 
the label of the FORMAT statement which controls the operation. 
The first form applies it, and only it, the corresponding FORMAT 
statement does not have any I or E specs. In the second form, 
each "V" is the designation of a variable. It may be subscripted 
but only with constant subscripts (a fixed item in an array). 

The number and type of the V's must agree precisely with the 
controlling FORMAT statement: that is, floating variables must 
correspond to E specs and integral variables to I specs in the 
same order as these specifications appear in the FORMAT statement 
with due regard to the repetition numbers "k" in the latter. The 
"m" portions of the FORMAT are, however, ignored. 

The second PUNCH Statement results in punching an output tape 
with the values of the listed variables and also in punching out 
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the "k" characters following on "H" in the FORMAT Statement. 

This does not necessitate any special "V" or other entry in the 
PUNCH statement. X and Y specs are ignored. 

The first PUNCH statement results only in punching out the 
"k" characters following each "H" in the FORMAT statement. 

C. TAPE: 

This statement has either of the forms: 

TAPE n 

TAPE n, vl, v2, -- vm 

These are the opposite of the similar PUNCH statement: that 
an input punched tape is read and the listed variables are given 
the values read from the tape. Also, the "k" characters following 
an "H" in the corresponding FORMAT statement are replaced by those 
read from the tape. Here also, X and Y space and the m's in I 
or E specs are ignored. The same comments in regard to agreement 
with the details of the FORMAT statement mentioned for the PUNCH 
statement apply here as well. 

D. READ: 

This may also be in two possible forms: 

READ n 

READ n, Vi, v 2 ,-v m ?????EDF - subscripted 

These cause reading of data from the next card in the Card Reader 
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in accord with the FORMAT statement having "n" as its label. In 
the second form, the "m" portions of I or E specs are meaningful, 
designating sizes of corresponding "fields" on the card. Also, 
the quantities read under I or E specs are converted from decimal 
to binary before storage in the Computer. An H spec causes re¬ 
placement of the k characters in the FORMAT statement following 
the letter H by new data read from the card. Each X spec causes 
skipping of k columns on the card. Y specs are ignored. The first 
form is applicable when the corresponding FORMAT statement has no 
I or E specs. It handles H and X specs in the FORMAT statement 
as described for the second form. 

The READ statement must not only be fully compatible with its 
corresponding FORMAT statement but, further, if a READ statement 
and its FORMAT call for more than 80 columns to be read, an ERROR 
halt occurs. 

E. TYPE: 

The two forms of this statement are: 

TYPE n 

TYPE n, vl, v2, - vm???? 

Either causes automatic operation of the typewriter, typing out 
data in accord with the FORMAT statement having n as its label. 

In this operation, the "n" portions of the I and E specs are 
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meaningful, designating the number of character positions on the 


typed line allocated to the corresponding quantities. Before 
typing in accord with I or E specs, quantities are converted from 
binary to decimal. As noted in the discussion of FORMAT state¬ 
ments, if "m" is below that required for a minimum representation 
of the corresponding converted number, an Error halt occurs. An 
H spec causes typing of the k characters following the H in the 
FORMAT statement. Each X spec causes k spaces on the typed line. 
Each Y spec causes k carriage returns. No additional listing is 
required in the TYPE statement to cover H, X, or Y specs. 
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CHECK LIST 


1. The basic characters which may be used in writing a FORTRAN 


statement are: 

(a) A, B, C.Z (26 alphabetic characters) 

(b) 0, 1, 2.9 (10 numerical characters) 

(0) + (plus), - (minus), * (asterisk), / (slash), ( (left 


parenthesis), ) (right parenthesis), , (comma), = (equal 
sign), and . (decimal point). 

2. Upper and lower case alphabetic characters are not distinguished 
on a punched card; e.g., D and d are represented by the same 
punches. 

3. The digits 1 and 0 must be carefully distinguished from the 
alphabetic characters I and 0. 

4. If calculations involving a constant (i.e., any number except 
a statement number) are to be carried out in floating point 
arithmetic, the constant must be written in the E format. 

5. A variable symbol can consist of four or fewer characters. It 
must satisfy the following conditions: 

(a) The first character must be alphabetic. 

(b) The first character can be I, J, K, L, M, or N, only if 
it is a integer variable. 
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(c) Any character following the first may be alphabetic or 


numerical, but not one of the special characters. 

6. The left side of an arithmetic statement must never be a 
constant. 

7. Never omit the intended operation symbol between two quanti¬ 
ties; e.g., do not write AB for A*B. 

8. Never write two operation symbols in a row. There are no 
exceptions. 

9. The last statement in the range of a DO must be a unique 
continue statement. 

10. All subscripted variables must appear in a DIMENSION state¬ 
ment. This statement meet appear in the program before 
reference is made to the variables. 

11. Negative subscripts are not permitted. 

12. Subscripting of subscripts is not permitted. 

13. In a floating-point expression, integer variables and con¬ 
stants can be used only as subscripts. 

14. Integer constants are written without a decimal point; integer 
variables must begin with I, J, K, L, M, or N. 
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ERROR TYPE OUT 


During Compilation 


1 


When an error is detected in a FORTRAN statement during 
compilation, there is a carriage return and the word "ERROR" 
followed by a one- or two-digit number is typed out. The number 
typed is indicative of the cause as follows: 

1. Data in columns 5 and/or 6. 

2. Statement does not begin in column 7. 

3. Statement is unknown: not one of these listed. 

4. Label is required but is missing. 

5. Object Program space exceeded. 

6. Compiler space exceeded (Format table). 

7. Compiler space exceeded (Label table}. 

8. Compiler space exceeded (Variable and Array table). 

9. Compiler space exceeded (Subroutine and Function table). 

10. Improper punctuation. 

11. Improper floating form, or wrong punctuation 

12. More than 4 digits in Label, or wrong punctuation, 

13. More than 4 characters in Name, or wrong punctuation. 

14. More than 7 digits in magnitude of constant, or wrong 

punctuation. 

15. List not consistent with specified Format or wrong punc¬ 
tuation . 
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16. More than 3 digits in dimension of Array, or wrong punc¬ 
tuation . 

17. More than 2 digits in Format, or wrong punctuation. 

18. More than 2 subscripts in Array, or among punctuation. 

19. Variable, Array, Function, or Subroutine not previously 
defined. 

20. Label referred to but not assigned. 

21. Number of subscripts does not agree with dimension, or 
wrong punctuation. 

22. Statement incomplete. 

23. Statement excessive in length, or wrong punctuation. 

24. Label non-digital, or in wrong columns, or wrong punctuation. 

25. Dimension non-digital. 

26. Subscript not positive integer, or integer variable, or 
wrong punctuation. 

27. Mixed expression (part integer, part floating). 

28. Name does not begin with a letter. 

29. Not integer variable. 

30. Symbol is unknown: not one of those permitted. 

31. More that one = sign. 

32. Unequal number of open and close parentheses. 

33. READ instruction exceeds card capacity. 
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34. Disallowed character; or wrong punctuation. 


35. No field size in E or I Format, or wrong punctuation. 

36. Dimension of Array is less than 2. 

37. Less than 6 characters provided for typing floating quantity. 

ERROR TYPE OUT- During Computation -EDF ??? 3 blank lines between here 
and above 

Certain errors cannot be determined during compilation. 

When these are detected during computation, the machine types a 
"0", then carriage returns, and types out a repeated letter. 

This indicates the cause as follows: 

AA Overflow in Integer Addition or Subtraction 
BB Overflow in Integer Multiplication 
CC Overflow in Integer Division (zero divisor) 

DD Overflow in Floating Addition or Subtraction 
EE Overflow in Floating Multiplication 

FF Overflow in Floating Division 

GG Overflow in Conversion: Floating to Integer 
HH Insufficient Field for Type of Integer Number 
II Card data does not agree with Format 

JJ More than 7 digits in Integer, or Magnitude of Floating, 

Constant 

KK More than 2 digits in Exponent of Floating Constant 
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